Nuprl Lemma : adjacent-singleton
11,40
postcript
pdf
T
:Type,
x
,
y
,
u
:
T
. adjacent(
T
;[
u
];
x
;
y
)
False
latex
ProofTree
Definitions
Void
,
P
Q
,
False
,
A
,
P
&
Q
,
A
B
,
i
j
<
k
,
,
{
x
:
A
|
B
(
x
)}
,
{
i
..
j
}
,
Type
,
s
=
t
,
x
:
A
B
(
x
)
,
x
:
A
.
B
(
x
)
,
t
T
,
||
as
||
,
n
+
m
,
-
n
,
n
-
m
,
a
<
b
,
x
:
A
B
(
x
)
,
x
:
A
.
B
(
x
)
,
l
[
i
]
,
,
#$n
,
type
List
,
[]
,
A
List
,
[
car
/
cdr
]
,
,
(
x
l
)
,
adjacent(
T
;
L
;
x
;
y
)
Lemmas
false
wf
,
int
seg
wf
,
length
wf1
,
select
wf
origin
T:Type, x, y, u:T. adjacent(T;[u];x;y) 
False
T:Type, x, y, u:T. adjacent(T;[u];x;y) False
Q
A
B j < k
}
B(x)
x:A. B(x)
T
B(x)x:A. B(x)
l)